home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / HyperCard 2.0 / Home / Home.rsrc / XFCN_500_FontExists.txt < prev   
Text File  |  1990-08-31  |  21KB  |  388 lines
  1. start:
  2. 00000000  4E56 0000                link       A6, 0
  3. 00000004  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  4. 00000008  4EBA 0168                jsr        [PC + 0x168 /* 00000172 */]
  5. 0000000C  4E5E                     unlink     A6
  6. 0000000E  2E9F                     move.l     [A7], [A7]+
  7. 00000010  4E75                     rts
  8. 00000012  8A45                     or.w       D5, D5
  9. 00000014  4E54 5259                link       A4, -0xFFFFADA7
  10. 00000018  504F                     addq.w     A7, 8
  11. 0000001A  494E                     chk.w      D4, A6
  12. 0000001C  5400                     addq.b     D0, 2
  13. 0000001E  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  14. // begin alternate branch 00000020-00000024
  15. fn00000020:
  16. 00000020  4E56 FF00                link       A6, -0x0100
  17. // end alternate branch 00000020-00000024
  18. fn00000020: // (misaligned)
  19. 00000022  FF00                     .extension 0xF00 <<F/4-5/7>> // unimplemented
  20. 00000024  206E 000C                movea.l    A0, [A6 + 0xC]
  21. 00000028  43EE FF00                lea.l      A1, [A6 - 0x100]
  22. 0000002C  703F                     moveq.l    D0, 0x3F
  23. label0000002E:
  24. 0000002E  22D8                     move.l     [A1]+, [A0]+
  25. 00000030  51C8 FFFC                dbf        D0, -0x6 /* 0000002E */
  26. 00000034  3F3C 0001                move.w     -[A7], 0x1
  27. 00000038  A9C8                     syscall    SysBeep
  28. 0000003A  226E 0008                movea.l    A1, [A6 + 0x8]
  29. 0000003E  2069 0008                movea.l    A0, [A1 + 0x8]
  30. 00000042  2F08                     move.l     -[A7], A0
  31. 00000044  42A7                     clr.l      -[A7]
  32. 00000046  226E 0008                movea.l    A1, [A6 + 0x8]
  33. 0000004A  2F29 0008                move.l     -[A7], [A1 + 0x8]
  34. 0000004E  486E FF00                pea.l      [A6 - 0x100]
  35. 00000052  4EBA 022C                jsr        [PC + 0x22C /* 00000280 */]
  36. 00000056  201F                     move.l     D0, [A7]+
  37. 00000058  205F                     movea.l    A0, [A7]+
  38. 0000005A  2140 0042                move.l     [A0 + 0x42], D0
  39. 0000005E  206E 0008                movea.l    A0, [A6 + 0x8]
  40. 00000062  2C48                     movea.l    A6, A0
  41. 00000064  4EFA 01B6                jmp        [PC + 0x1B6 /* 0000021C */]
  42. 00000068  0000 4E5E                ori.b      D0, 0x5E /* '^' */
  43. 0000006C  205F                     movea.l    A0, [A7]+
  44. 0000006E  504F                     addq.w     A7, 8
  45. 00000070  4ED0                     jmp        [A0]
  46. 00000072  8442                     or.w       D2, D2
  47. 00000074  4149                     chk.w      D0, A1
  48. 00000076  4C00 0000                movem.w    <none>, D0
  49. fn0000007A:
  50. 0000007A  4E56 FFFE                link       A6, -0x0002
  51. 0000007E  48E7 0108                movem.l    -[A7], D7,A4
  52. 00000082  286E 0008                movea.l    A4, [A6 + 0x8]
  53. 00000086  206C 0008                movea.l    A0, [A4 + 0x8]
  54. 0000008A  3E10                     move.w     D7, [A0]
  55. 0000008C  7001                     moveq.l    D0, 0x01
  56. 0000008E  B047                     cmp.w      D0, D7
  57. 00000090  5EC0                     sgt        D0
  58. 00000092  7202                     moveq.l    D1, 0x02
  59. 00000094  B247                     cmp.w      D1, D7
  60. 00000096  5DC1                     slt        D1
  61. 00000098  8001                     or.b       D0, D1
  62. 0000009A  670C                     beq        +0xE /* 000000A8 */
  63. 0000009C  487A 00A0                pea.l      [PC + 0xA0 /* 0000013E, value 0x31466F6E '1Fon' */]
  64. 000000A0  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  65. 000000A4  4EBA FF7A                jsr        [PC - 0x86 /* 00000020 */]
  66. label000000A8:
  67. 000000A8  2F2C 0008                move.l     -[A7], [A4 + 0x8]
  68. 000000AC  206C 0008                movea.l    A0, [A4 + 0x8]
  69. 000000B0  2068 0002                movea.l    A0, [A0 + 0x2]
  70. 000000B4  2F10                     move.l     -[A7], [A0]
  71. 000000B6  486C FE00                pea.l      [A4 - 0x200]
  72. 000000BA  4EBA 02A8                jsr        [PC + 0x2A8 /* 00000364 */]
  73. 000000BE  486C FE00                pea.l      [A4 - 0x200]
  74. 000000C2  487A 00AC                pea.l      [PC + 0xAC /* 00000170, value 0x1214E56 */]
  75. 000000C6  4EBA 02E0                jsr        [PC + 0x2E0 /* 000003A8 */]
  76. 000000CA  101F                     move.b     D0, [A7]+
  77. 000000CC  670E                     beq        +0x10 /* 000000DC */
  78. 000000CE  487A 006E                pea.l      [PC + 0x6E /* 0000013E, value 0x31466F6E '1Fon' */]
  79. 000000D2  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  80. 000000D6  4EBA FF48                jsr        [PC - 0xB8 /* 00000020 */]
  81. 000000DA  601C                     bra        +0x1E /* 000000F8 */
  82. label000000DC:
  83. 000000DC  486C FE00                pea.l      [A4 - 0x200]
  84. 000000E0  487A 005A                pea.l      [PC + 0x5A /* 0000013C, value 0x13F3146 */]
  85. 000000E4  4EBA 02C2                jsr        [PC + 0x2C2 /* 000003A8 */]
  86. 000000E8  101F                     move.b     D0, [A7]+
  87. 000000EA  670C                     beq        +0xE /* 000000F8 */
  88. 000000EC  487A 0026                pea.l      [PC + 0x26 /* 00000114, value 0x26466F72 '&For', pstring "Form:  FontExists(<font>,<point size>)" */]
  89. 000000F0  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  90. 000000F4  4EBA FF2A                jsr        [PC - 0xD6 /* 00000020 */]
  91. label000000F8:
  92. 000000F8  4CDF 1080                movem.l    D7,A4, [A7]+
  93. 000000FC  4E5E                     unlink     A6
  94. 000000FE  2E9F                     move.l     [A7], [A7]+
  95. 00000100  4E75                     rts
  96. 00000102  8F43 4845                pack       D7, D3, 0x4845
  97. 00000106  434B                     chk.w      D1, A3
  98. 00000108  5041                     addq.w     D1, 8
  99. 0000010A  5241                     addq.w     D1, 1
  100. 0000010C  4D43                     chk.w      D6, D3
  101. 0000010E  4F55                     chk.w      D7, [A5]
  102. 00000110  4E54 005E                link       A4, -0xFFFFFFA2
  103. 00000114  2646                     movea.l    A3, D6
  104. 00000116  6F72                     ble        +0x74 /* 0000018A */
  105. 00000118  6D3A                     blt        +0x3C /* 00000154 */
  106. 0000011A  2020                     move.l     D0, -[A0]
  107. 0000011C  466F 6E74                not.w      [A7 + 0x6E74]
  108. 00000120  4578 6973                chk.w      D2, [0x00006973]
  109. 00000124  7473                     moveq.l    D2, 0x73
  110. 00000126  283C 666F 6E74           move.l     D4, 0x666F6E74 /* 'font' */
  111. 0000012C  3E2C 3C70                move.w     D7, [A4 + 0x3C70]
  112. 00000130  6F69                     ble        +0x6B /* 0000019B */
  113. 00000132  6E74                     bgt        +0x76 /* 000001A8 */
  114. 00000134  2073 697A 653E 2900 013F movea.l    A0, [[A3 + 0x653E2900] + 0x13F]
  115. 0000013E  3146 6F6E                move.w     [A0 + 0x6F6E], D6
  116. 00000142  7445                     moveq.l    D2, 0x45
  117. 00000144  7869                     moveq.l    D4, 0x69
  118. 00000146  7374                     moveq.l    D1, 0x74
  119. 00000148  7320                     moveq.l    D1, 0x20
  120. 0000014A  5846                     addq.w     D6, 4
  121. 0000014C  434E                     chk.w      D1, A6
  122. 0000014E  2031 2E30                move.l     D0, [A1 + D2 * 8 + 0x30]
  123. 00000152  20A9 3139                move.l     [A0], [A1 + 0x3139]
  124. // begin alternate branch 00000154-0000015A
  125. label00000154:
  126. 00000154  3139 3930 2062           move.w     -[A0], [0x39302062]
  127. // end alternate branch 00000154-0000015A
  128. label00000154: // (misaligned)
  129. 00000156  3930 2062                move.w     -[A4], [A0 + D2.w + 0x62]
  130. 0000015A  7920                     moveq.l    D4, 0x20
  131. 0000015C  4170 706C                chk.w      D0, [A0 + D7.w + 0x6C]
  132. 00000160  6520                     bcs        +0x22 /* 00000182 */
  133. 00000162  436F 6D70                chk.w      D1, [A7 + 0x6D70]
  134. 00000166  7574                     moveq.l    D2, 0x74
  135. 00000168  6572                     bcs        +0x74 /* 000001DC */
  136. 0000016A  2C20                     move.l     D6, -[A0]
  137. 0000016C  496E 632E                chk.w      D4, [A6 + 0x632E]
  138. 00000170  0121                     btst       -[A1], D0
  139. fn00000172:
  140. 00000172  4E56 FDFA                link       A6, -0x0206
  141. 00000176  48E7 1F38                movem.l    -[A7], D3,D4,D5,D6,D7,A2,A3,A4
  142. 0000017A  2F0E                     move.l     -[A7], A6
  143. 0000017C  4EBA FEFC                jsr        [PC - 0x104 /* 0000007A */]
  144. 00000180  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  145. // begin alternate branch 00000182-0000018A
  146. label00000182:
  147. 00000182  0008 206E                ori.b      A0, 0x6E /* 'n' */
  148. 00000186  0008 2068                ori.b      A0, 0x68 /* 'h' */
  149. // end alternate branch 00000182-0000018A
  150. label00000182: // (misaligned)
  151. 00000184  206E 0008                movea.l    A0, [A6 + 0x8]
  152. 00000188  2068 0002                movea.l    A0, [A0 + 0x2]
  153. // begin alternate branch 0000018A-0000018E
  154. label0000018A:
  155. 0000018A  0002 2F10                ori.b      D2, 0x10
  156. // end alternate branch 0000018A-0000018E
  157. label0000018A: // (misaligned)
  158. 0000018C  2F10                     move.l     -[A7], [A0]
  159. 0000018E  486E FF00                pea.l      [A6 - 0x100]
  160. 00000192  4EBA 01D0                jsr        [PC + 0x1D0 /* 00000364 */]
  161. 00000196  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  162. 0000019A  206E 0008                movea.l    A0, [A6 + 0x8]
  163. 0000019E  2068 0006                movea.l    A0, [A0 + 0x6]
  164. 000001A2  2F10                     move.l     -[A7], [A0]
  165. 000001A4  486E FE00                pea.l      [A6 - 0x200]
  166. label000001A8:
  167. 000001A8  4EBA 01BA                jsr        [PC + 0x1BA /* 00000364 */]
  168. 000001AC  42A7                     clr.l      -[A7]
  169. 000001AE  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  170. 000001B2  486E FE00                pea.l      [A6 - 0x200]
  171. 000001B6  4EBA 0160                jsr        [PC + 0x160 /* 00000318 */]
  172. 000001BA  201F                     move.l     D0, [A7]+
  173. 000001BC  3D40 FDFC                move.w     [A6 - 0x204], D0
  174. 000001C0  486E FF00                pea.l      [A6 - 0x100]
  175. 000001C4  486E FDFE                pea.l      [A6 - 0x202]
  176. 000001C8  A900                     syscall    GetFNum
  177. 000001CA  4A6E FDFE                tst.w      [A6 - 0x202]
  178. 000001CE  6E14                     bgt        +0x16 /* 000001E4 */
  179. 000001D0  4267                     clr.w      -[A7]
  180. 000001D2  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  181. 000001D6  487A 0060                pea.l      [PC + 0x60 /* 00000238, value 0x546414C, pstring "FALSE" */]
  182. 000001DA  4EBA 00F0                jsr        [PC + 0xF0 /* 000002CC */]
  183. // begin alternate branch 000001DC-000001DE
  184. label000001DC:
  185. 000001DC  00F0                     .incomplete
  186. // end alternate branch 000001DC-000001DE
  187. label000001DC: // (misaligned)
  188. 000001DE  1D5F FDFB                move.b     [A6 - 0x205], [A7]+
  189. 000001E2  600C                     bra        +0xE /* 000001F0 */
  190. label000001E4:
  191. 000001E4  4267                     clr.w      -[A7]
  192. 000001E6  2F2E FDFC                move.l     -[A7], [A6 - 0x204]
  193. 000001EA  A902                     syscall    RealFont
  194. 000001EC  1D5F FDFB                move.b     [A6 - 0x205], [A7]+
  195. label000001F0:
  196. 000001F0  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  197. 000001F4  1F2E FDFB                move.b     -[A7], [A6 - 0x205]
  198. 000001F8  486E FE00                pea.l      [A6 - 0x200]
  199. 000001FC  4EBA 0040                jsr        [PC + 0x40 /* 0000023E */]
  200. 00000200  206E 0008                movea.l    A0, [A6 + 0x8]
  201. 00000204  2F08                     move.l     -[A7], A0
  202. 00000206  42A7                     clr.l      -[A7]
  203. 00000208  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  204. 0000020C  486E FE00                pea.l      [A6 - 0x200]
  205. 00000210  4EBA 006E                jsr        [PC + 0x6E /* 00000280 */]
  206. 00000214  201F                     move.l     D0, [A7]+
  207. 00000216  205F                     movea.l    A0, [A7]+
  208. 00000218  2140 0042                move.l     [A0 + 0x42], D0
  209. label0000021C:
  210. 0000021C  4FEE FDDA                lea.l      A7, [A6 - 0x226]
  211. 00000220  4CDF 1CF8                movem.l    D3,D4,D5,D6,D7,A2,A3,A4, [A7]+
  212. 00000224  4E5E                     unlink     A6
  213. 00000226  2E9F                     move.l     [A7], [A7]+
  214. 00000228  4E75                     rts
  215. 0000022A  8A46                     or.w       D5, D6
  216. 0000022C  4F4E                     chk.w      D7, A6
  217. 0000022E  5445                     addq.w     D5, 2
  218. 00000230  5849                     addq.w     A1, 4
  219. 00000232  5354                     subq.w     [A4], 1
  220. 00000234  5300                     subq.b     D0, 1
  221. 00000236  0006 0546                ori.b      D6, 0x46 /* 'F' */
  222. 0000023A  414C                     chk.w      D0, A4
  223. 0000023C  5345                     subq.w     D5, 1
  224. fn0000023E:
  225. 0000023E  4E56 0000                link       A6, 0
  226. 00000242  2F0C                     move.l     -[A7], A4
  227. 00000244  286E 000E                movea.l    A4, [A6 + 0xE]
  228. 00000248  102E 000C                move.b     D0, [A6 + 0xC]
  229. 0000024C  4880                     ext.w      D0
  230. 0000024E  48C0                     ext.l      D0
  231. 00000250  2940 0050                move.l     [A4 + 0x50], D0
  232. 00000254  296E 0008 0054           move.l     [A4 + 0x54], [A6 + 0x8]
  233. 0000025A  397C 0010 004C           move.w     [A4 + 0x4C], 0x10
  234. 00000260  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  235. 00000264  205F                     movea.l    A0, [A7]+
  236. 00000266  4E90                     jsr        [A0]
  237. 00000268  285F                     movea.l    A4, [A7]+
  238. 0000026A  4E5E                     unlink     A6
  239. 0000026C  205F                     movea.l    A0, [A7]+
  240. 0000026E  DEFC 000A                add.w      A7, 0xA /* '\n' */
  241. 00000272  4ED0                     jmp        [A0]
  242. 00000274  8942 4F4F                pack       D4, D2, 0x4F4F
  243. 00000278  4C54 4F53                movem.l    D0,D1,D4,D6,A0,A1,A2,A3,A6, [A4]
  244. 0000027C  5452                     addq.w     [A2], 2
  245. 0000027E  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  246. // begin alternate branch 00000280-00000284
  247. fn00000280:
  248. 00000280  4E56 FF00                link       A6, -0x0100
  249. // end alternate branch 00000280-00000284
  250. fn00000280: // (misaligned)
  251. 00000282  FF00                     .extension 0xF00 <<F/4-5/7>> // unimplemented
  252. 00000284  2F0C                     move.l     -[A7], A4
  253. 00000286  206E 0008                movea.l    A0, [A6 + 0x8]
  254. 0000028A  43EE FF00                lea.l      A1, [A6 - 0x100]
  255. 0000028E  703F                     moveq.l    D0, 0x3F
  256. label00000290:
  257. 00000290  22D8                     move.l     [A1]+, [A0]+
  258. 00000292  51C8 FFFC                dbf        D0, -0x6 /* 00000290 */
  259. 00000296  286E 000C                movea.l    A4, [A6 + 0xC]
  260. 0000029A  41EE FF00                lea.l      A0, [A6 - 0x100]
  261. 0000029E  2948 0050                move.l     [A4 + 0x50], A0
  262. 000002A2  397C 0007 004C           move.w     [A4 + 0x4C], 0x7
  263. 000002A8  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  264. 000002AC  205F                     movea.l    A0, [A7]+
  265. 000002AE  4E90                     jsr        [A0]
  266. 000002B0  2D6C 0070 0010           move.l     [A6 + 0x10], [A4 + 0x70]
  267. 000002B6  285F                     movea.l    A4, [A7]+
  268. 000002B8  4E5E                     unlink     A6
  269. 000002BA  205F                     movea.l    A0, [A7]+
  270. 000002BC  504F                     addq.w     A7, 8
  271. 000002BE  4ED0                     jmp        [A0]
  272. 000002C0  8950                     or.w       [A0], D4
  273. 000002C2  4153                     chk.w      D0, [A3]
  274. 000002C4  544F                     addq.w     A7, 2
  275. 000002C6  5A45                     addq.w     D5, 5
  276. 000002C8  524F                     addq.w     A7, 1
  277. 000002CA  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  278. // begin alternate branch 000002CC-000002D0
  279. fn000002CC:
  280. 000002CC  4E56 FF00                link       A6, -0x0100
  281. // end alternate branch 000002CC-000002D0
  282. fn000002CC: // (misaligned)
  283. 000002CE  FF00                     .extension 0xF00 <<F/4-5/7>> // unimplemented
  284. 000002D0  2F0C                     move.l     -[A7], A4
  285. 000002D2  206E 0008                movea.l    A0, [A6 + 0x8]
  286. 000002D6  43EE FF00                lea.l      A1, [A6 - 0x100]
  287. 000002DA  703F                     moveq.l    D0, 0x3F
  288. label000002DC:
  289. 000002DC  22D8                     move.l     [A1]+, [A0]+
  290. 000002DE  51C8 FFFC                dbf        D0, -0x6 /* 000002DC */
  291. 000002E2  286E 000C                movea.l    A4, [A6 + 0xC]
  292. 000002E6  41EE FF00                lea.l      A0, [A6 - 0x100]
  293. 000002EA  2948 0050                move.l     [A4 + 0x50], A0
  294. 000002EE  397C 000B 004C           move.w     [A4 + 0x4C], 0xB
  295. 000002F4  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  296. 000002F8  205F                     movea.l    A0, [A7]+
  297. 000002FA  4E90                     jsr        [A0]
  298. 000002FC  1D6C 0073 0010           move.b     [A6 + 0x10], [A4 + 0x73]
  299. 00000302  285F                     movea.l    A4, [A7]+
  300. 00000304  4E5E                     unlink     A6
  301. 00000306  205F                     movea.l    A0, [A7]+
  302. 00000308  504F                     addq.w     A7, 8
  303. 0000030A  4ED0                     jmp        [A0]
  304. 0000030C  8953                     or.w       [A3], D4
  305. 0000030E  5452                     addq.w     [A2], 2
  306. 00000310  544F                     addq.w     A7, 2
  307. 00000312  424F                     clr.w      A7
  308. 00000314  4F4C                     chk.w      D7, A4
  309. 00000316  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  310. // begin alternate branch 00000318-0000031C
  311. fn00000318:
  312. 00000318  4E56 FF00                link       A6, -0x0100
  313. // end alternate branch 00000318-0000031C
  314. fn00000318: // (misaligned)
  315. 0000031A  FF00                     .extension 0xF00 <<F/4-5/7>> // unimplemented
  316. 0000031C  2F0C                     move.l     -[A7], A4
  317. 0000031E  206E 0008                movea.l    A0, [A6 + 0x8]
  318. 00000322  43EE FF00                lea.l      A1, [A6 - 0x100]
  319. 00000326  703F                     moveq.l    D0, 0x3F
  320. label00000328:
  321. 00000328  22D8                     move.l     [A1]+, [A0]+
  322. 0000032A  51C8 FFFC                dbf        D0, -0x6 /* 00000328 */
  323. 0000032E  286E 000C                movea.l    A4, [A6 + 0xC]
  324. 00000332  41EE FF00                lea.l      A0, [A6 - 0x100]
  325. 00000336  2948 0050                move.l     [A4 + 0x50], A0
  326. 0000033A  397C 000A 004C           move.w     [A4 + 0x4C], 0xA /* '\n' */
  327. 00000340  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  328. 00000344  205F                     movea.l    A0, [A7]+
  329. 00000346  4E90                     jsr        [A0]
  330. 00000348  2D6C 0070 0010           move.l     [A6 + 0x10], [A4 + 0x70]
  331. 0000034E  285F                     movea.l    A4, [A7]+
  332. 00000350  4E5E                     unlink     A6
  333. 00000352  205F                     movea.l    A0, [A7]+
  334. 00000354  504F                     addq.w     A7, 8
  335. 00000356  4ED0                     jmp        [A0]
  336. 00000358  8853                     or.w       D4, [A3]
  337. 0000035A  5452                     addq.w     [A2], 2
  338. 0000035C  544F                     addq.w     A7, 2
  339. 0000035E  4E55 4D00                link       A5, -0xFFFFB300
  340. 00000362  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  341. // begin alternate branch 00000364-0000036A
  342. fn00000364:
  343. 00000364  4E56 0000                link       A6, 0
  344. 00000368  2F0C                     move.l     -[A7], A4
  345. // end alternate branch 00000364-0000036A
  346. fn00000364: // (misaligned)
  347. 00000366  0000 2F0C                ori.b      D0, 0xC
  348. 0000036A  286E 0010                movea.l    A4, [A6 + 0x10]
  349. 0000036E  296E 000C 0050           move.l     [A4 + 0x50], [A6 + 0xC]
  350. 00000374  296E 0008 0054           move.l     [A4 + 0x54], [A6 + 0x8]
  351. 0000037A  397C 0008 004C           move.w     [A4 + 0x4C], 0x8
  352. 00000380  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  353. 00000384  205F                     movea.l    A0, [A7]+
  354. 00000386  4E90                     jsr        [A0]
  355. 00000388  285F                     movea.l    A4, [A7]+
  356. 0000038A  4E5E                     unlink     A6
  357. 0000038C  205F                     movea.l    A0, [A7]+
  358. 0000038E  DEFC 000C                add.w      A7, 0xC
  359. 00000392  4ED0                     jmp        [A0]
  360. 00000394  895A                     or.w       [A2]+, D4
  361. 00000396  4552                     chk.w      D2, [A2]
  362. 00000398  4F54                     chk.w      D7, [A4]
  363. 0000039A  4F50                     chk.w      D7, [A0]
  364. 0000039C  4153                     chk.w      D0, [A3]
  365. 0000039E  0000 48E7                ori.b      D0, 0xE7
  366. 000003A2  C0C0                     mulu.w     D0, D0
  367. 000003A4  7201                     moveq.l    D1, 0x01
  368. 000003A6  6006                     bra        +0x8 /* 000003AE */
  369. fn000003A8:
  370. 000003A8  48E7 C0C0                movem.l    -[A7], D0,D1,A0,A1
  371. 000003AC  4241                     clr.w      D1
  372. label000003AE:
  373. 000003AE  206F 0018                movea.l    A0, [A7 + 0x18]
  374. 000003B2  226F 0014                movea.l    A1, [A7 + 0x14]
  375. 000003B6  4240                     clr.w      D0
  376. 000003B8  1010                     move.b     D0, [A0]
  377. label000003BA:
  378. 000003BA  B308                     cmpm.b     [A1]+, [A0]+
  379. 000003BC  56C8 FFFC                dbne       D0, -0x6 /* 000003BA */
  380. 000003C0  6604                     bne        +0x6 /* 000003C6 */
  381. 000003C2  0A41 0001                xori.w     D1, 0x1
  382. label000003C6:
  383. 000003C6  1F41 001A                move.b     [A7 + 0x1A], D1
  384. 000003CA  2F6F 0010 0016           move.l     [A7 + 0x16], [A7 + 0x10]
  385. 000003D0  4CDF 0303                movem.l    D0,D1,A0,A1, [A7]+
  386. 000003D4  5C4F                     addq.w     A7, 6
  387. 000003D6  4E75                     rts
  388.